

## COMPLETE
variables <- list(
            RiotStudy=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1"),	
		    Synchrony=c("BrainstormObject1", "TypingText1", "Sudoku1",                     "MemoryPicture1"                  , "MatrixSolving1"),
          	   German=c("BrainstormObject1", "TypingText1"           , "BrainstormWords1"),
         Technion2016=c("BrainstormObject1", "TypingText1", "Sudoku1"                    , "MemoryPicture1"                  , "MatrixSolving1"),
              MBA2012=c("BrainstormObject1", "TypingText1", "Sudoku1"                                       ),
            XvalStudy=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1"                  , "TypingNumbers1"),
 T1T2CrowdflowerJoint=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
                Kiwon=c("BrainstormObject1", "TypingText1", "Sudoku1"                    , "MemoryPicture1"),
 CMUGenderStatusStudy=c("BrainstormObject1", "TypingText1", "Sudoku1"                                                        , "MatrixSolving1"),
		 Technion2015=c("BrainstormObject1", "TypingText1", "Sudoku1"                    , "MemoryPicture1"                  , "MatrixSolving1"),
		 Technion2017=c("BrainstormObject1", "TypingText1", "Sudoku1"                                      ),
              MBA2015=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1"                  , "MatrixSolving1"),
              MBA2014=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
          	      USC=c("BrainstormObject1", "TypingText1", "Sudoku1"                    , "MemoryPicture1"),	
          	 FortSill=c("BrainstormObject1", "TypingText1"           ),	
T1T2CrowdflowerRound1=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
        T1T2CMUSO2013=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
	             Bots=c("BrainstormObject1", "TypingText1", "Sudoku1"                                      ),
        T1T2CMUSO2015=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
	     TilburgStudy=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1"),
          Hopkins2015=c("BrainstormObject1", "TypingText1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
	      Hopkins2016=c("BrainstormObject1", "TypingText1", "Sudoku1"                    , "MemoryPicture1")
)

